home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 15 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  249 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 15                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"           (null)WO (null)TEP (null)ROBLEMS  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  (null)HAT WILL BE MY CHANGE FROM TWENTY
  51. 210 PRINT"  DOLLARS IF [201] BOUGHT 12 GALLONS OF
  52. 215 [153]"  GAS AT $1.60 CENTS A GALLON?"
  53. 217 [153]"  (STR$ON'T FORGET THE $ SIGN)
  54. 220 GOSUB81:GOSUB70
  55. 225 PRINT"             [145]"
  56. 230 INPUT A$
  57. 240 IFA$<>"$.80"ANDA$<>"80 CENTS"THEN270
  58. 250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  59. 260 P=P+1:GOTO300
  60. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  61. 275 IFZ=2THENG=G+1:GOTO285
  62. 280 PRINT"[158][145]  [212]RY AGAIN                             [159]":GOSUB70:GOSUB81:W=W+1
  63. 282 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
  64. 285 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS  $.80 [158]      ":GOSUB82
  65. 290 PRINT"  1.60 X 12 = 19.20
  66. 292 [153]"  AND 20.00 - 19.20 = .80
  67. 295 GOSUB82:GOSUB90
  68. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  69. 305 PRINT"  [212]ONY WAS GIVEN A DOLLAR AND SPENT
  70. 310 [153]"  30 CENTS FOR CANDY AND 50 CENTS         FOR POP.
  71. 315 PRINT"  [200]OW MUCH MONEY DID HE HAVE LEFT?"
  72. 320 GOSUB81:GOSUB70
  73. 325 PRINT"             [145]"
  74. 330 INPUT A$
  75. 340 IFA$<>"20"ANDA$<>"20 CENTS"ANDA$<>"$.20"THEN370
  76. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  77. 360 P=P+1:GOTO400
  78. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  79. 375 IFZ=2THENG=G+1:GOTO385
  80. 380 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  81. 382 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
  82. 385 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS  $.20 [158]      ":GOSUB82
  83. 390 PRINT"  .30 + .50 = .80
  84. 392 [153]"  AND 1.00 - .80 = .20
  85. 395 GOSUB82:GOSUB90
  86. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  87. 405 PRINT"  [205]R. [215]ILSON SPENT $20 FOR FOOD AND
  88. 410 [153]"  $14 FOR GAS.
  89. 415 PRINT"  [200]OW MUCH CHANGE DID HE GET FROM A       50 DOLLAR BILL?
  90. 420 [141]81:[141]70
  91. 425 [153]"             ON"
  92. 430 [133] A$
  93. 440 [139]A$[179][177]"$16.00"[175]A$[179][177]"$16"[167]470
  94. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  95. 460 P[178]P[170]1:[137]500
  96. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  97. 475 [139]Z[178]2[167]G[178]G[170]1:[137]485
  98. 480 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  99. 482 [153]"OPENONON                                        ONONONONONONON":[137]425
  100. 485 [153]"SYSONON  (null)HE CORRECT ANSWER IS  $16.00 SYS      ":[141]82
  101. 490 [153]"  20.00 + 14.00 = 34.00
  102. 492 PRINT"  AND 50.00 - 34.00 = 16.00
  103. 495 [141]82:[141]90
  104. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  105. 505 [153]"  LEFT$OW MUCH MONEY COULD (null)ARY SAVE IF
  106. 510 PRINT"  HER ALLOWANCE WAS $20.00 A WEEK IF
  107. 515 [153]"  HER BUS FARES WERE $5.00 A WEEK
  108. 517 PRINT"  AND HER LUNCHES COST $12.50?"
  109. 520 GOSUB81:GOSUB70
  110. 525 PRINT"             [145]"
  111. 530 INPUT A$
  112. 540 IFA$<>"$2.50"THEN 570
  113. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  114. 560 P=P+1:GOTO600
  115. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  116. 575 IFZ=2THENG=G+1:GOTO585
  117. 580 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  118. 582 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
  119. 585 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS  $2.50 [158]      ":GOSUB82
  120. 590 PRINT"  5.00 + 12.50 = 17.50
  121. 592 [153]"  AND 20.00 - 17.50 = 2.50
  122. 595 GOSUB82:GOSUB90
  123. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  124. 605 PRINT"  [200]OW MUCH CHANGE WOULD YOU RECEIVE
  125. 610 [153]"  FROM A DOLLAR IF YOU BOUGHT 2 MELONS    AT 23 CENTS EACH.?"
  126. 620 [141]81:[141]70
  127. 625 [153]"             ON"
  128. 630 [133] A$
  129. 640 [139]A$[179][177]"$0.54"[175]A$[179][177]"54 CENT"[175]A$[179][177]"54"[167] 670
  130. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  131. 660 P[178]P[170]1:[137]700
  132. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  133. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  134. 680 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  135. 682 [153]"OPENONON                                        ONONONONONONON":[137]625
  136. 685 [153]"SYSONON  (null)HE CORRECT ANSWER IS  $.54 SYS      ":[141]82
  137. 690 [153]"  .23 X 2 = .46
  138. 692 PRINT"  AND 1.00 - .46 = .54
  139. 695 [141]82:[141]90
  140. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  141. 705 [153]"  MID$OHN BOUGHT 2 BUNS FOR 38 CENTS
  142. 710 PRINT"  AND A DOZEN APPLES FOR 52 CENTS.
  143. 715 [153]"  LEFT$OW MUCH CHANGE DID HE RECEIVE          FROM 2 DOLLARS?
  144. 725 PRINT"             [145]"
  145. 730 INPUT A$
  146. 740 IFA$<>"$1.10"THEN770
  147. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  148. 760 P=P+1:GOTO800
  149. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  150. 775 IFZ=2THENG=G+1:GOTO785
  151. 780 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  152. 782 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
  153. 785 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS  $1.10 [158]      ":GOSUB82
  154. 790 PRINT"  .38 + .52 = .90
  155. 792 [153]"  AND 2.00 - .90  = 1.10
  156. 795 GOSUB82:GOSUB90
  157. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  158. 805 PRINT"  [202]OE BOUGHT A GRAPEFRUIT FOR 51 CENTS,
  159. 810 [153]"  AN ORANGE FOR 15 CENTS, AND AN APPLE
  160. 815 PRINT"  FOR 12 CENTS.
  161. 817 [153]"  LEFT$OW MUCH CHANGE DID HE GET FROM $5?
  162. 820 GOSUB81:GOSUB70
  163. 825 PRINT"             [145]"
  164. 830 INPUT A$
  165. 840 IFA$<>"$4.22"THEN870
  166. 850 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  167. 860 P=P+1:GOTO900
  168. 870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  169. 875 IFZ=2THENG=G+1:GOTO885
  170. 880 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  171. 882 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO825
  172. 885 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS  $4.22 [158]      ":GOSUB82
  173. 890 PRINT"  .51 + .15 + .12 = .78
  174. 892 [153]"  AND 5.00 - .78 = 4.22
  175. 895 GOSUB82:GOSUB90
  176. 900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
  177. 905 PRINT"  [201] HAND A GARAGE MAN A TWENTY DOLLAR
  178. 910 [153]"  BILL FOR 7 PINTS OF OIL AT $1.50        A PINT.
  179. 915 PRINT"  [200]OW MUCH CHANGE SHOULD [201] RECEIVE?
  180. 920 [141]81:[141]70
  181. 925 [153]"             ON"
  182. 930 [133] A$
  183. 940 [139]A$[179][177]"$9.50"[167]970
  184. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  185. 960 P[178]P[170]1:[137]1000
  186. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  187. 975 [139]Z[178]2[167]G[178]G[170]1:[137]985
  188. 980 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  189. 982 [153]"OPENONON                                        ONONONONONONON":[137]925
  190. 985 [153]"SYSONON  (null)HE CORRECT ANSWER IS  $9.50 SYS      ":[141]82
  191. 990 [153]"  1.50 X 7 = 10.50
  192. 992 PRINT"  AND 20.00 - 10.50 = 9.50
  193. 995 [141]82:[141]90
  194. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  195. 1005 [153]"  CHR$EORGE BOUGHT 8 COMPUTER DISKS
  196. 1010 PRINT"  AT $1.50 EACH
  197. 1015 [153]"  LEFT$OW MUCH CHANGE DID HE GET FROM         A TWENTY DOLLAR BILL?"
  198. 1020 [141]81:[141]70
  199. 1025 [153]"             ON"
  200. 1030 [133] A$
  201. 1040 [139]A$[179][177]"$8.00"[175]A$[179][177]"$8"[167]1070
  202. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  203. 1060 P[178]P[170]1:[137]1100
  204. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  205. 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1085
  206. 1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  207. 1082 [153]"OPENONON                                        ONONONONONONON":[137]1025
  208. 1085 [153]"SYSONON  (null)HE CORRECT ANSWER IS  $8.00 SYS      ":[141]82
  209. 1090 [153]"  1.50 X 8 = 12.50
  210. 1092 PRINT"  AND 20.00 - 12.50 = 8.00
  211. 1095 [141]82:[141]90
  212. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  213. 1105 [153]"  LEFT$OW MUCH CHANGE SHOULD (null)OUIS GET
  214. 1110 PRINT"  FROM 25 CENTS IF HE BUYS THREE PENS     AT 7 CENTS EACH?"
  215. 1120 GOSUB81:GOSUB70
  216. 1125 PRINT"             [145]"
  217. 1130 INPUT A$
  218. 1140 IFA$<>"4"ANDA$<>"4 CENTS"AND A$<>"$.04"THEN1170
  219. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  220. 1160 GOTO1200
  221. 1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  222. 1175 IFZ=2THENG=G+1:GOTO1185
  223. 1180 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  224. 1182 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1125
  225. 1185 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS  $.80 [158]      ":GOSUB82
  226. 1190 PRINT"  .3 X 7 = .21
  227. 1192 [153]"  AND .25 - .21 = .4
  228. 1195 GOSUB82:GOSUB90
  229. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  230. 1205 D=W-G:C=10-W
  231. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  232. 1215 [153]"                 ";C
  233. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  234. 1225 PRINT"                 ";D
  235. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  236. 1235 [153]"                 ";G;""
  237. 1245 [141]90
  238. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  239. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  240. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  241. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  242. 1270 [139]R$[178]"R"[167][140]:[137]100
  243. 1275 [140]
  244. 1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
  245. 1285 LOAD"MENU",8
  246. 1290 RUN
  247. 1295 END
  248. 1300 REM BILL CUMBERLAND 90:12:24
  249.